unit unitFileInfo;

interface
uses SysUtils;

type
{ TFileInfo }

  TFileInfo = class(TObject)
  private
    FFileType: Boolean;
    FFileSize: Int64;
    FFilePath: string;
    FFileName: string;
    FFileCreatetime: TDateTime;
    FFileBuildtime: TDateTime;
    FFileAccesstime: TDateTime;
    FFileModifytime: TDateTime;
    procedure SetFileAccesstime(const Value: TDateTime);
    procedure SetFileBuildtime(const Value: TDateTime);
    procedure SetFileCreatetime(const Value: TDateTime);
    procedure SetFileModifytime(const Value: TDateTime);
    procedure SetFileName(const Value: string);
    procedure SetFilePath(const Value: string);
    procedure SetFileSize(const Value: Int64);
    procedure SetFileType(const Value: Boolean);

  protected

  public
    constructor Create;
    destructor Destroy; override;
    property FileAccesstime: TDateTime read FFileAccesstime write SetFileAccesstime;
    property FileBuildtime: TDateTime read FFileBuildtime write SetFileBuildtime;
    property FileCreatetime: TDateTime read FFileCreatetime write SetFileCreatetime;
    property FileModifytime: TDateTime read FFileModifytime write SetFileModifytime;
    property FileName: string read FFileName write SetFileName;
    property FilePath: string read FFilePath write SetFilePath;
    property FileSize: Int64 read FFileSize write SetFileSize;
    property FileType: Boolean read FFileType write SetFileType;

  published

  end;

implementation

{ TFileInfo }

constructor TFileInfo.Create;
begin
  inherited;
  FFileType := True;
  FFileSize := 0;
  FFilePath := '';
  FFileName  := '';
  FFileCreatetime := Now();
  FFileBuildtime:= Now();
  FFileAccesstime := Now();
  FFileModifytime := Now();
end;

destructor TFileInfo.Destroy;
begin
  inherited;
end;

procedure TFileInfo.SetFileAccesstime(const Value: TDateTime);
begin
  FFileAccesstime := Value;
end;

procedure TFileInfo.SetFileBuildtime(const Value: TDateTime);
begin
  FFileBuildtime := Value;
end;

procedure TFileInfo.SetFileCreatetime(const Value: TDateTime);
begin
  FFileCreatetime := Value;
end;

procedure TFileInfo.SetFileModifytime(const Value: TDateTime);
begin
  FFileModifytime := Value;
end;

procedure TFileInfo.SetFileName(const Value: string);
begin
  FFileName := Value;
end;

procedure TFileInfo.SetFilePath(const Value: string);
begin
  FFilePath := Value;
end;

procedure TFileInfo.SetFileSize(const Value: Int64);
begin
  FFileSize := Value;
end;

procedure TFileInfo.SetFileType(const Value: Boolean);
begin
  FFileType := Value;
end;

end.

